home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / misc / m2_part1.lha / modula / examples / src / args.mod next >
Encoding:
Text File  |  1994-07-30  |  148 b   |  13 lines
  1. MODULE args ;
  2.  
  3. IMPORT M2Lib, StdIO ;
  4.  
  5. VAR
  6.   x : LONGINT ;
  7.  
  8. BEGIN
  9.   FOR x := 0 TO M2Lib.argc-1 DO
  10.     StdIO.puts( M2Lib.argv^[x] )
  11.   END ;
  12. END args.
  13.